From: Sam Steingold <sds@gnu.org>
Date: Tue, 1 Feb 2011 19:17:10 +0000 (-0500)
Subject: fix docstrings of `purecopy-cons' & `purecopy-car' per Chong Yidong's request
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4972
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=04d53bcd5a12681d4a4b1689151625d7522ce616;p=emacs.git

fix docstrings of `purecopy-cons' & `purecopy-car' per Chong Yidong's request
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 45afbb31286..2eca62c0e45 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2321,10 +2321,10 @@ BEG and END default respectively to the beginning and end of buffer."
 ;;;; Miscellanea.
 
 (defun purecopy-cons (arg)
-  "Purecopy both car and cdr of the pair argument."
+  "Return a copy of ARG from a `purecopy' of the car and cdr of ARG."
   (cons (purecopy (car arg)) (purecopy (cdr arg))))
 (defun purecopy-car (arg)
-  "Purecopy the car of the pair argument."
+  "Return a copy of ARG whose car is a `purecopy' of the car of ARG."
   (cons (purecopy (car arg)) (cdr arg)))
 
 (defvar suspend-hook nil